--[[
    编码: WMS-15-08
    名称: 收货单-定版后
    作者：HAN  
    日期：2025-1-29

    级别：项目 (说明本段代码在项目中需要变化)
    
    函数： AfterStateChange

    功能:
        - 判断物料是否要检验？ 如果需要生成检验单，如果不需要检验生成上架单
        - 根据货品的去向增加检验区、上架区的量表
        - 是否检验可以根据来源类型，货品类型等来设置，就目前新兴项目来说入成品库都不需要检验（因此这块代码暂时空缺），可以从纳特项目中来实践
        - 设置【收货单明细】的状态为定版
    更改记录:

--]]
wms_in = require( "wms_inbound" )

function AfterStateChange ( strLuaDEID )
    local  nRet, strRetInfo
    local  inspection_area = ''   -- 检验区
    local  putaway_area = ''      -- 上架区

    -- 获取收货单相关信息
    nRet, strRetInfo = mobox.getCurEditDataObjAttr( strLuaDEID ) 
    if ( nRet ~= 0 )  then lua.Error( strLuaDEID, debug.getinfo(1), "获取当前编辑属性失败! "..strRetInfo ) end 
    -- 根据获取的属性生成收货单对象
    nRet, strRetInfo = mobox.objAttrsToLuaJson( "Receipt_Order", strRetInfo )
    if ( nRet ~= 0 or strRetInfo == '' ) then lua.Error( strLuaDEID, debug.getinfo(1), "objAttrsToLuaJson失败! "..strRetInfo ) end 
    local receipt_obj = json.decode( strRetInfo ) 
    if ( receipt_obj == nil ) then lua.Error( strLuaDEID, debug.getinfo(1), "objAttrsToLuaJson失败! " ) end 

    -- step1 判断收货单里是否有设置检验
    if ( receipt_obj.inspection == 'Y' ) then
        wms_in.CreateInspectionOrder( strLuaDEID, receipt_obj, inspection_area )
    elseif ( receipt_obj.inspection == 'N' ) then 
        WMS_CreatePutawayOrder( strLuaDEID, receipt_obj, putaway_area )
    else
        -- 通过供应商来判断
        if ( receipt_obj.supplier_no == '' ) then lua.Error( strLuaDEID, debug.getinfo(1), "收货单中的供应商编码不能为空! " ) end 
        -- 获取供应商对象
        nRet, supplier_obj = m3.GetDataObjectByKey( strLuaDEID, "Supplier", "S_NO", receipt_obj.supplier_no )
        if ( nRet == 0 ) then
            -- 是否免检
            if ( supplier_obj.uninspected == 'Y' ) then
                WMS_CreatePutawayOrder( strLuaDEID, receipt_obj, putaway_area )
            elseif (supplier_obj.uninspected == 'N') then
                wms_in.CreateInspectionOrder( strLuaDEID, receipt_obj, inspection_area )
            else
                WMS_CreatePutawayOrder( strLuaDEID, receipt_obj, putaway_area )
            end
        else
            WMS_CreatePutawayOrder( strLuaDEID, receipt_obj, putaway_area )
        end
    end

    if ( receipt_obj.no == '') then
        lua.Warning( strLuaDEID, debug.getinfo(1), "收货单编号为空! " )
        return
    end
    if ( receipt_obj.state == nil or  receipt_obj.state == '') then
        lua.Warning( strLuaDEID, debug.getinfo(1), "收货单状态为空或nil, 检查一下是否有定义名为 state 的 Lua 属性! " )
        return
    end


    -- 清除 asn_no 的最大行号记录 （）
    nRet, strRetInfo = mobox.removeSerialNumber( "行号", receipt_obj.no )
    if ( nRet ~= 0 )  then lua.Error( strLuaDEID, debug.getinfo(1), "removeSerialNumber() 失败! "..strRetInfo ) end 

    lua.Debug( strLuaDEID, debug.getinfo(1), "receipt_obj.state", receipt_obj.state )
    
    -- 设置【收货单明细】的状态=定版
    local strCondition = "S_RECEIPT_NO = '"..receipt_obj.no.."'"
    nRet, strRetInfo = mobox.setDataObjStateByCondition( strLuaDEID, "Receipt_Detail", strCondition, receipt_obj.state )
    if ( nRet ~= 0 )  then lua.Error( strLuaDEID, debug.getinfo(1), "setDataObjStateByCondition() 失败! "..strRetInfo ) end 
end